home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / language / newdivi.act < prev    next >
Text File  |  1995-04-22  |  1KB  |  47 lines
  1. ;The following Action! routine will provide you with a fix for the bugs
  2. ;in divide in Action!  It should be self-explanatory...
  3.  
  4. MODULE ; NEWDIVI.ACT
  5.  
  6. ; (c) 1983 ACS
  7.  
  8. ; Copyright (c) 1983
  9. ; by Action Computer Services (ACS)
  10. ; Permission is granted to duplicate
  11. ; and/or distribute the contents of
  12. ; this file to any licensed user of
  13. ; OSS ACTION.  This copyright notice
  14. ; must be replicated in all such
  15. ; copies.  Copies of this file may
  16. ; not be sold or otherwise used for
  17. ; monetary gain.
  18.  
  19. ; This file fixes the problems with
  20. ; the ACTION! divide routine and
  21. ; should be included within all your
  22. ; ACTION! programs until such time
  23. ; as an update ROM is available.
  24.  
  25. ; TO USE:
  26. ;      'INCLUDE' this file in front
  27. ;      of all your PROCedures and
  28. ;      FUNCtions.
  29.  
  30. ; e.g. INCLUDE "D2:NEWDIVI.ACT"
  31.  
  32. PROC DivI=*()
  33. [ $20 $A06C $85 $86 $A2 $10 $26 $82
  34.     $26 $83 $26 $86 $26 $87 $38 $A5
  35.     $86 $E5 $84 $A8 $A5 $87 $E5 $85
  36.     $90 $04 $85 $87 $84 $86 $CA $D0
  37.     $E5 $A5 $82 $2A $26 $83 $A6 $83
  38.     $4C $A032]
  39.  
  40. PROC REMI=*()
  41. [$20 DivI $86A5 $87A6 $60]
  42.  
  43. SET $4EA=DivI
  44. SET $4EC=RemI
  45.  
  46. ; End of MODULE NEWDIVI.ACT
  47.